www.gusucode.com > (粗糙集数据分析工具箱) matlab源码程序 > matlab代做 修改 程序工具箱 (粗糙集数据分析工具箱) matla 中使用/rsda/indbk.m
function y=ind(a,x) [p,q]=size(x); [ap,aq]=size(a); z=[]; for u=1:q z=cat(2,z,u); end tt=setdiff(z,a); [ttp,ttq]=size(tt); for r=ttq:-1:1 x(:,tt(r))=[-1]; end for r=q:-1:1 if x(1,r)==-1; x(:,r)=[]; end end y=x; for i=1:p v(i)=code(aq,y(i,:),10); end y=v'; [yy,I]=sort(y); y=[yy I]; [b,k,l]=unique(yy); y=[l I]; m=max(l); for ii=1:m s1{ii}=[]; end %s=cell2struct(c,f,2); for ii=1:m for j=1:p if l(j)==ii s1{ii}={strcat(s1{ii},int2str(I(j)),',')}; end end end y=s1;